home *** CD-ROM | disk | FTP | other *** search
/ Yellows - Privacy (Deluxe) / Akira Gomi Photographs - Yellows: Privacy (Deluxe) - Disc 1.iso / footage / pict18.dxr / 00042.ls < prev    next >
Encoding:
Text File  |  1996-07-10  |  829 b   |  29 lines
  1. on mouseDown
  2.   global qtframelist, pictlist, movieprepos, scastname
  3.   repeat while the stillDown
  4.     if rollOver(clickOn()) then
  5.       if the memberNum of sprite 24 = getAt(qtframelist, movieprepos) then
  6.         set the member of sprite 24 to member (getAt(qtframelist, movieprepos + 1) - 1) of castLib scastname
  7.         updateStage()
  8.         repeat with i = 1 to 750
  9.         end repeat
  10.         leftcursorchange(1)
  11.         repeat with i = 1 to 750
  12.         end repeat
  13.         leftcursorchange(1)
  14.       else
  15.         set the memberNum of sprite 24 to the memberNum of sprite 24 - 1
  16.         updateStage()
  17.         repeat with i = 1 to 750
  18.         end repeat
  19.         leftcursorchange(1)
  20.         repeat with i = 1 to 750
  21.         end repeat
  22.         leftcursorchange(1)
  23.       end if
  24.       next repeat
  25.     end if
  26.     exit
  27.   end repeat
  28. end
  29.